home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 July
/
CHIP Turkiye Temmuz 2000.iso
/
prog
/
share
/
02
/
ARCHIVE.Z
/
PDF Format.aip
/
PSPROCSET
/
9
< prev
Wrap
Text File
|
1998-09-17
|
4KB
|
173 lines
%%BeginFile: pdfimg1c.prc
%%Copyright: Copyright 1987-1993 Adobe Systems Incorporated. All Rights Reserved.
PDF /PDFImage get begin
Level2? not StartLoad {
/DeviceRGB [ 3
{
Width Height BitsPerComponent ImageMatrix ImageFilter 3
ColorImage
} bind
] InstallImage
/DeviceCMYK [ 4
{
Width Height BitsPerComponent ImageMatrix ImageFilter 4
ColorImage
} bind
] InstallImage
/ColorImage? /colorimage where { pop true } { false } ifelse def
ColorImage? StartLoad {
/ColorImage { false exch colorimage } bd
} EndLoad
ColorImage? not StartLoad {
/SetupColorImage {
/CIConv 255 2 BitsPerComponent exp 1 sub div pv
/CIMask 0 not BitsPerComponent bitshift not pv
/CIBSelect BitsPerComponent 1 sub not 7 and pv
/CIBufferExp CIWidth string pv
} bd
/rgbtogray {
0.11 mul exch 0.59 mul add exch 0.3 mul add round cvi
} bd
/cmyktogray {
exch 0.11 mul add exch 0.59 mul add exch 0.3 mul add round cvi
dup 255 gt { pop 255 } if
255 exch sub
} bd
/FastRGB {
CIDataProc dup
0 3 2 index length 3 sub
{
dup 3 idiv
2 index 2 index get
3 index 3 index 1 add get
4 index 4 index 2 add get
rgbtogray
3 -1 roll pop put dup
} for
0 exch length 3 idiv getinterval
} bd
/FastCMYK {
CIDataProc dup
0 4 2 index length 4 sub {
dup 4 idiv
2 index 2 index get
3 index 3 index 1 add get
4 index 4 index 2 add get
5 index 5 index 3 add get
cmyktogray
3 -1 roll pop put dup
} for
0 exch length 4 idiv getinterval
} bd
/SlowRGB {
CIDataProc pop
0 1 CIWidth 1 sub {
0 1 2 {
1 index 3 mul add CIBPC mul
CIBSelect 1 index 1 index and sub
exch 8 idiv
CIBuffer exch get
exch neg bitshift CIMask and CIConv mul exch
} for
4 1 roll rgbtogray
CIBufferExp 3 1 roll put
} for
CIBufferExp
} bd
/SlowCMYK {
CIDataProc pop
0 1 CIWidth 1 sub {
0 1 3 {
1 index 4 mul add CIBPC mul
CIBSelect 1 index 1 index and sub
exch 8 idiv
CIBuffer exch get
exch neg bitshift CIMask and CIConv mul exch
} for
5 1 roll cmyktogray
CIBufferExp 3 1 roll put
} for
CIBufferExp
} bd
/ColorImage {
/CINumComps exch pv
/CIDataProc exch pv
/CIIMatrix exch pv
/CIBPC exch pv
/CIHeight exch pv
/CIWidth exch pv
CIWidth CIHeight 8 CIIMatrix
CINumComps 1 eq { /CIDataProc } {
CINumComps 3 eq {
CIBPC 8 eq { /FastRGB
} { SetupColorImage /SlowRGB } ifelse
} {
CIBPC 8 eq { /FastCMYK
} { SetupColorImage /SlowCMYK } ifelse
} ifelse
} ifelse
load image
} bd
} EndLoad
} EndLoad
_ColorSep5044? {
/paintimage
{
colorplate 0 eq
{
{ {currentfile cyanstr readstring pop}
{currentfile magentastr readstring pop}
{currentfile yellowstr readstring pop}
{currentfile blackstr readstring pop
currentfile graystr readstring pop pop}
}
{ {currentfile cyanstr readhexstring pop}
{currentfile magentastr readhexstring pop}
{currentfile yellowstr readhexstring pop}
{currentfile blackstr readhexstring pop
currentfile graystr readhexstring pop pop}
} ifelse
true 4 colorimage
}
{
3 dict begin
/binaryOK exch def
[
1 1 5 {
dup
/currentfile cvx
[ /cyanstr /magentastr /yellowstr /blackstr /graystr ]
3 -1 roll 1 sub get cvx
binaryOK { /readstring } { /readhexstring } ifelse cvx
/pop cvx
5 -1 roll
colorplate dup 5 gt { pop 5 } if
eq not { /pop cvx } if
} for
] cvx bind
end
[
colorplate 6 eq {
/pop cvx
negativecolorplate { 0 } { 1 } ifelse
} if
colorplate 4 le
{
1 /exch cvx /sub cvx
} if
colorplate 6 ne
{
systemdict /currenttransfer get exec
aload pop
} if
] cvx
gsave
systemdict /settransfer get exec
systemdict /image get exec
grestore
} ifelse
} bd
} if
end
%%EndFile